(say "よーし、パパ、ライブラリとかいろいろ取り込んじゃうぞ!")

;  #-abcl (progn

(progn
  (say :srfi)
  (mapc (lambda (f) (make-core:clisp-load f ))
        '("lib:setagaya;srfi;package.lisp"
          "lib:setagaya;srfi;srfi-1.lisp"
          "lib:setagaya;srfi;srfi-26.lisp"
          "lib:setagaya;srfi;srfi-61.lisp"
          "lib:setagaya;srfi;srfi-87.lisp")))

(progn
  ;; maclisp
  (say :Maclisp-compat)
  (clisp-load "lib:setagaya;maclisp-compat;package.lisp"))

(progn
  ;; onlisp
  (say :onlisp)
  (mapc (lambda (x) (clisp-load x))
        '(
          "lib:onlisp;package.lisp"
          "lib:onlisp;onlisp-util.lisp"
          "lib:onlisp;onlisp-app.lisp")
        )
                                        ;(load "lib:onlisp;utx") 
  )

#-ccl
(progn
  ;; twitter
  #-(or ecl clisp) (make-core:clisp-load "lib:setagaya;twitter.lisp")
  )


(progn
  ;; tao
  (load-systems '(:tao-compat))
  )

(progn
  ;; xyzzy
  (load-systems '(:xyzzy-compat))
  )


(progn
  ;; arc
  #-clisp (load-systems '(:arc-compat))
  )

'(progn
  ;; utils
  (say :utils)
  (load "lib:local;utils")
  )

#-(or clisp ccl)
(progn
  ;; home
  (say :home)
  (load "/u/mc/lisp/Work/home"))

#-(or clisp ccl)
(progn
  ;; はてダラ
  (say :hw)
  (load "/u/mc/lisp/Work/hw"))

(format t "パッケージ一覧だぞ~%~{~A~%~^~}~&~A~%" 
        (sort (mapcar #'package-name (list-all-packages)) #'string-lessp)
        "--------------------------------------------------------------------------------")
